home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / gfx / show / GS510_data.lha / ghostscript / 5.10 / gs_res.ps < prev    next >
Text File  |  1997-12-28  |  19KB  |  666 lines
  1. %    Copyright (C) 1994, 1996, 1997 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % Initialization file for Level 2 resource machinery.
  19. % When this is run, systemdict is still writable,
  20. % but (almost) everything defined here goes into level2dict.
  21.  
  22. level2dict begin
  23.  
  24. (BEGIN RESOURCES) VMDEBUG
  25.  
  26. % We keep track of (global) instances with another entry in the resource
  27. % dictionary, an Instances dictionary.  For categories with implicit
  28. % instances, the values in Instances are the same as the keys;
  29. % for other categories, the values are [instance status size].
  30.  
  31. % Note that the dictionary that defines a resource category is stored
  32. % in global memory.  The PostScript manual says that each category must
  33. % manage global and local instances separately.  However, objects in
  34. % global memory other than systemdict can't reference objects in local memory.
  35. % This means that the resource category dictionary, which would otherwise be
  36. % the obvious place to keep track of the instances, can't be used to keep
  37. % track of local instances.  Instead, we define a dictionary in local VM
  38. % called localinstancedict, in which the key is the category name and
  39. % the value is the analogue of Instances for local instances.
  40.  
  41. % We don't currently implement automatic resource unloading.
  42. % When and if we do, it should be hooked to the garbage collector.
  43. % However, Ed Taft of Adobe says their interpreters don't implement this
  44. % either, so we aren't going to worry about it for a while.
  45.  
  46. currentglobal false setglobal systemdict begin
  47.   /localinstancedict 5 dict def
  48. end true setglobal
  49. /.emptydict 0 dict readonly def
  50. setglobal
  51.  
  52. % Resource category dictionaries have the following keys (those marked with
  53. % * are optional):
  54. %    Standard, defined in the Red Book:
  55. %        Category (name)
  56. %        *InstanceType (name)
  57. %        DefineResource
  58. %            <key> <instance> DefineResource <instance>
  59. %        UndefineResource
  60. %            <key> UndefineResource -
  61. %        FindResource
  62. %            <key> FindResource <instance>
  63. %        ResourceStatus
  64. %            <key> ResourceStatus <status> <size> true
  65. %            <key> ResourceStatus false
  66. %        ResourceForAll
  67. %            <template> <proc> <scratch> ResourceForAll -
  68. %        *ResourceFileName
  69. %            <key> <scratch> ResourceFileName <filename>
  70. %    Additional, specific to our implementation:
  71. %        Instances (dictionary)
  72. %        .LocalInstances
  73. %            - .LocalInstances <dict>
  74. %        .GetInstance
  75. %            <key> .GetInstance <instance> -true-
  76. %            <key> .GetInstance -false-
  77. %        .CheckResource
  78. %            <key> <value> .CheckResource <key> <value> <ok>
  79. %              (or may give an error if not OK)
  80. %        .DoLoadResource
  81. %            <key> .DoLoadResource - (may give an error)
  82. %        .LoadResource
  83. %            <key> .LoadResource - (may give an error)
  84. %        .ResourceFile
  85. %            <key> .ResourceFile <file> -true-
  86. %            <key> .ResourceFile <key> -false-
  87. % All the above procedures expect that the top dictionary on the d-stack
  88. % is the resource dictionary.
  89.  
  90. % Define enough of the Category category so we can define other categories.
  91. % The dictionary we're about to create will become the Category
  92. % category definition dictionary.
  93.  
  94. /.findcategory        % <name> .findcategory <category>
  95.  { { /Category findresource } stopped { pop stop } if
  96.  } bind def
  97.  
  98. /.resourceexec        % <key> /xxxResource .resourceexec -
  99.  {            %   (also pops the category from the dstack)
  100.    load stopped { Category end stop } if end
  101.  } bind def
  102.  
  103. 12 dict begin
  104.  
  105.         % Standard entries
  106.  
  107. /Category /Category def
  108. /InstanceType /dicttype def
  109.  
  110. /DefineResource
  111.     { .CheckResource
  112.        { dup /Category 3 index cvlit .growput
  113.         % We would like to make Category dictionaries read-only,
  114.         % and we used to do that here, but we can't do it,
  115.         % because we have to be able to replace the dummy, empty
  116.         % Instances dictionary with the real one later.
  117.          dup [ exch 0 -1 ] exch
  118.          Instances 4 2 roll put
  119.        }
  120.        { /defineresource load /typecheck signalerror
  121.        }
  122.       ifelse
  123.     } bind def
  124. /FindResource        % (redefined below)
  125.     { Instances exch get 0 get
  126.     } bind def
  127.  
  128.         % Additional entries
  129.  
  130. /Instances 25 dict def
  131. Instances /Category [currentdict 0 -1] put
  132.  
  133. /.LocalInstances 0 dict def
  134. /.GetInstance
  135.     { Instances exch .knownget
  136.     } bind def
  137. /.CheckResource
  138.     { dup gcheck currentglobal and
  139.        { /DefineResource /FindResource /ResourceForAll /ResourceStatus
  140.          /UndefineResource }
  141.        { 2 index exch known and }
  142.       forall
  143.       not { /defineresource load /invalidaccess signalerror } if
  144.       true
  145.     } bind def
  146.  
  147. Instances end begin    % for the base case of findresource
  148.  
  149. (END CATEGORY) VMDEBUG
  150.  
  151. % Define the resource operators.  We use the "stack protection" feature of
  152. % odef to make sure the stacks are restored properly on an error.
  153. % This requires that the operators not pop anything from the stack until
  154. % they have executed their logic successfully.  We can't make this
  155. % work for resourceforall, but we can make it work for the others.
  156.  
  157. mark
  158. /defineresource {    % <key> <instance> <category> defineresource <instance>
  159.     3 copy .findcategory dup begin
  160.     /InstanceType known {
  161.       dup type InstanceType ne {
  162.         dup type /packedarraytype eq InstanceType /arraytype eq and
  163.         not { /defineresource load /typecheck signalerror } if
  164.       } if
  165.     } if
  166.     /DefineResource .resourceexec
  167.     4 1 roll pop pop pop
  168. }
  169. /findresource {        % <key> <category> findresource <instance>
  170.     2 copy dup /Category eq
  171.       { pop //Category 0 get } { .findcategory } ifelse
  172.     begin
  173.     /FindResource .resourceexec exch pop exch pop
  174. }
  175. /resourceforall {    % <template> <proc> <scratch> <category> resourceforall -
  176.     .findcategory begin /ResourceForAll .resourceexec
  177. }
  178. /resourcestatus {    % <key> <category> resourcestatus <status> <size> true
  179.             % <key> <category> resourcestatus false
  180.     2 copy .findcategory begin /ResourceStatus .resourceexec
  181.      { 4 2 roll pop pop true } { pop pop false } ifelse
  182. }
  183. /undefineresource {    % <key> <category> undefineresource -
  184.     2 copy .findcategory begin /UndefineResource .resourceexec pop pop
  185. }
  186. end        % Instances of Category
  187. counttomark 2 idiv { bind odef } repeat pop
  188.  
  189. % Define the system parameters used for the Generic implementation of
  190. % ResourceFileName.
  191. systemdict begin
  192. currentdict /systemparams known not { /systemparams 10 dict readonly def } if
  193. systemparams
  194.   dup /FontResourceDir (/Resource/Font/) readonly .forceput
  195.   dup /GenericResourceDir (/Resource/) readonly .forceput
  196.   dup /GenericResourcePathSep (/) readonly .forceput
  197. pop
  198. end
  199.  
  200. % Define the generic algorithm for computing resource file names.
  201. /.rfnstring 100 string def
  202. /.genericrfn        % <key> <scratch> <prefix> .genericrfn <filename>
  203.  { 3 -1 roll //.rfnstring cvs concatstrings exch copy
  204.  } bind def
  205.  
  206. % Define the Generic category.
  207.  
  208. /Generic mark
  209.  
  210.         % Standard entries
  211.  
  212. % We're still running in Level 1 mode, so dictionaries won't expand.
  213. % Leave room for the /Category entry.
  214. /Category null
  215.  
  216. /DefineResource
  217.     { .CheckResource
  218.        { dup [ exch 0 -1 ]
  219.             % Stack: key value instance
  220.          currentglobal
  221.           { false setglobal 2 index UndefineResource    % remove local def if any
  222.         true setglobal
  223.         Instances dup //.emptydict eq
  224.          { pop 3 dict /Instances 1 index def
  225.          }
  226.         if
  227.           }
  228.           { .LocalInstances dup //.emptydict eq
  229.              { pop 3 dict localinstancedict Category 2 index put
  230.          }
  231.         if
  232.           }
  233.          ifelse
  234.             % Stack: key value instance instancedict
  235.          3 index 2 index .growput
  236.             % Now make the resource value read-only.
  237.          0 2 copy get { readonly } .internalstopped pop
  238.          dup 4 1 roll put exch pop exch pop
  239.        }
  240.        { /defineresource load /typecheck signalerror
  241.        }
  242.       ifelse
  243.     } bind
  244. /UndefineReso